home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / 64alv2b.sfx / 81 io switch (.txt) next >
Commodore BASIC  |  1990-02-12  |  606b  |  18 lines

  1. 1 REM:PROGRAM BY JACK VANDER WHITE BASEDON A ROUTINE BY M.GARMSZEGHY PUBLISHED
  2. 2 REM:IN TRANSACTOR MAGAZINE 12/88.
  3. 3 PRINTCHR$(147):IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60
  4. 5 A$="---------------------------------------"
  5. 10 PRINT:PRINT A$
  6. 20 PRINT"THIS DISABLES OR ENABLES THE IO RESET"
  7. 30 PRINT"ON A PARTITIONED 1581. DO NOT USE"
  8. 40 PRINT"THIS ON ANY OTHER DISK DRIVE."
  9. 50 PRINT A$:INPUT"DEVICE # OF 1581";DV
  10. 60 PRINT"WHAT DO YOU WANT TO DO ?"
  11. 70 PRINT"          1[146] DISABLE RESET"
  12. 80 PRINT"          2[146] ENABLE RESET":INPUT R$
  13. 90 ON VAL(R$)GOTO 100,200
  14. 100 OPEN15,DV,15:PRINT#15,"M-W";CHR$(152);CHR$(1);CHR$(2);CHR$(123);CHR$(128)
  15. 110 CLOSE 15:NEW
  16. 200 OPEN15,DV,15:PRINT#15,"U:";
  17. 210 CLOSE 15:NEW
  18.